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INHIB ON SENSITIVE CODE 

THIS CODE IS ENTERED FROM THE MASTER MODE FAULT 


VECTOR BY THE XED OF A PAIR OF INSTRUCTIONS SUCH 
AS 


STC1  ICANA-DIC SAVE IC 

TRA ak/2~FTVAN/2O+F VAN 

MACRO 

EIGHT FOR HANDY DEBUGGING 

NULL IMAGE OF FAULT VECTOR 

DUP 1716 

XED FREG#1 SAVE REGS AND REMEMBER CPU NUMBER 
ENDM FV 

MACRO 

EVEN 

SREG REGtH1,1 SAVE USER REGISTERS 

TSXO +4 REMEMBER FAULT NUMBER 

LDX P,r#i DU SET P TO CPU NUMBER 

SBXO FVA14+1,DU GET ACTUAL FAULT NUMBER IN XO 

TRA ENTER ENTER COMMON FAULT HANDLER 

ENDM FREG 

APROC FV 
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EIGHT FOR HANDY DEBUGGING 

NULL IMAGE OF FAULT VECTOR 
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XED FREGO SAVE REGS AND REMEMBER CPU NUMBER 
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XED FREG() SAVE REGS AND REMEMBER CPU NUMBER 
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XO 


GET ACTUAL FAULT NUMBER IN XQ 
ENTER COMMON FAULT HANDLER 


NOTE END OF VULNERABLE AREA 
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RELEASED O1JAN81 


* 

* THIS ROUTINE RUNS IN ALL NON=CONTROL PROCESSORS» AND IN THE 

* CONTROL PROCESSOR WHEN THE CONTROL PROCESSOR ROUTINES ARE 

* IDLE. IT REMOVES JOBS FROM THE SLAVE INPUT QUEUE (SRQF) 

* RUNS THEM, AND RETURNS THEM TO THE CONTROL EXEC. 

* 

ENTER NULL ENTER HERE FROM FAULT PROCESSING ROUTINE : 
INHIB ON SENSITIVE CODE C01SEP80) 

* 

* CHECK FOR MASTER MODE FAULT 

* 
TTF MFT SKIP OUT IF MASTER MODE FAULT 

ENTO NULL ENTRY AFTER MASTER LOCKUP FAULT 
LDI AZSOVMSK*+MEMMODE,Z,DL MASK OFF OVERFLOWS 

x 

TTT STC TCC CCC CCC CCC CLC TTT TTT 

*IOM 
IFE IOMFLGso124MARK 

* 

TSOPOS5 NOP 0,DU SPACE FOR LCPR INST. ON 66/X7 C30DEC76] 
LCPR UNLCK 04 UNLOCK THE HISTORY REGS ON A SLAVE FAULT 
SCPR JUNK 01 SAVE FAULT REGISTER TO CLEAR IT. 

* 

MARK MARK 

*1OM 

KKK KKK KKK KKK KKK KK KKK KKK KKK Kk 

- 

* 

* FAULT FROM SLAVE MODE - SAVE IC AND REGISTERS 

* ; : 

x C170CT76) 

* SLAVE MODE FAULT HANDLING C170CT76) 

* C170C1T76) 

® BRANCH ON TYPE OF FAULT+s MOST FAULTS ARE RETURNED TO. THE USER, C170CT76) 

* SOME CAUSE THE JOB TO BE RETURNED TO MASTER EXEC PROCESSING, (170CT76) 

* £170CT76]) 
LDX J*eJOBe,P GET THE NUMBER OF THE JOB ACTIVE IN THIS: PROCESSOR C170CT76) 
LDX SzREG,P GET A POINTER TO THE STATE VECTOR OF THAT JOB C170cT76) 
LDA MREG»P GET THE ADDRESS OF THE MASTER MODE REGISTER SAVE AREA 
STA REGs»P SET IT UP AS THE REGULAR POINTER Ci7oct76] 
INHIB OF F END OF DANGER ZONE C170CT764) 
CMPXO 16/DU 1S THE FAULT IN RANGE? C170CT76I 
TRC SZOPFse* IF NOTs WE BLEW IT €£170CT76) 
TRA x*+1,0* BRANCH ON FAULT TYPE C170CT76) 

x C170CT76) 

* TRANSFER TABLE C170CT76) 

* C170CT76) 
TRA SSOF SHUTDOWN FAULT -~-- STOP THIS PROCESSOR C170CT76) 
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N NON=CONTROL PROCESSOR EXECUTIVE RELEASED O1JAN81 
000272 7100 00 R. 345 TRA USERF MEMORY FAULT == RETURN TO USER j C170CT76] O 
000253 7100 00 R. 346 TRA MME MME FAULT -- QUEUE FOR MASTER EXEC PROCESSING C170cT76] 
000272 7100 OO R. 347 TRA USER F FAULT TAG =~ RETURN TO USER > : C1i70ct76) ©) 
000322 7100 00 R. 348 TRA CONT TIMER FAULT == IGNOREs BUT RETURN JOB TO MASTER EXEC 
9000267 7100 00 R. 349 TRA CMD COMMAND FAULT =~ RETURN TO USERs- CRASH SYSTEM IF MONITOR 
O002e72 7100 OO R. 350 TRA USERF DERAIL .~- RETURN TO USER C170CT76) OQ 
OOU272 7100 00° R. Do 4 TRA USERF LOCKUP -= RETURN TO USER C1I70cT?6) 
NOG260 7174.09 “00° R:, oe TRA CON CONNECT == IGNORE, BUT RETURN JOB TO MASTER EXEC (C170CT76] 
9000264 7100 O00 R. a5 TRA PAR PARITY -- RETURN TO MASTER EXEC TO BE ABORTED C170cT76) Ss 
000272 7100 O00 R. 354 TRA USERF ZOP FAULT == RETURN TO USER C170CT76) 
O0027f2 7100 00 R. 355 TRA USERF ONC FAULT =~ RETURN TO USER Ci70cT?64I 
000000 7100 20 xX. 356 TRA SZOPF,* STARTUP FAULT (NEVER FROM SLAVE MODE) C170cT76) C) 
000272 7100 OO R. ea & TRA USER F OVERFLOW FAULT =-- RETURN TO USER C170CT76) 
O00272 7100 00 R. 358 TRA USERF DIVIDE CHECK FAULT ~~ RETURN TO USER C170CT76) . 
000000 7100 20 x. 359 TRA SZOPFs* EXECUTE FAULT -- SOMEBODY HIT THE BUTTON C170CT76) CO) 
360 * C1I70cT76) 
ce on * SHUT DOWN FAULT -- RETURN SLAVE JOB TO MASTER PROCESSOR C170cT76) 
362 x AS THOUGH ITS TIMER HAD RUN OUT. THEN SHUT DOWN THIS PROCESSOR. C170CT?76) © 
363 * C170CT76) 
900247 364 SSDF NULL C170CT76) 
000004 2210 03 .. 362 L DX Xe-BSTROFs DU TELL MASTER EXEC TO RESCHEDULE Ci70cT76) CO 
O00035 7419-17 -s< 366 STX XeSSFTYPESS SET REASON FOR RETURN IN STATE VECTOR C170CT76) 
007914 5540 16 R. SCF STC1 SDFG*sP FLAG PROCESSOR AS SHUTTING DOWN C170cT?76) 
000322 7100 OD R. 368 TRA CONT COMMON FAULT CLEANUP C170cT76) C) 
2.09 * C170CT?76) 
370 * MME FAULT -- IF JOB IS SQUEEZED, RETURN FAULT. OTHERWISE, C170CT76]) 
371 * RETURN JOB TO MASTER EXEC FOR PROCESSING. C170CT76) CG 
S72 * C1i70cT?76) 
900253 S73 MME NULL C170CT76) 
DOOUST 2560 UT cake 374 SZN SSBARS*S WAS JOB SQUEEZED? C170CT76) C) 
000272 6070 00 R. SYS TNZ USERF IF SO, HANDLE LIKE OTHER USER FAULTS C170CT76) 
OPO) 22270 0S: as 376 LDX XeBSMMEZDU TELL MASTER EXEC TO HANDLE A MME C170CT764) 
OO00S 3: 7470 Vt ew S77, STX X/SBhFTYPEsS SET REASON IN STATE VECTOR C1I70CT76) CO) 
000322 7100 OO R. 378 TRA CONT COMMON FAULT CLEANUP C170CT76) 
379 * C170CT76) 
380 * CONNECT FAULT =-- RETURN SLAVE JOB TO MASTER PROCESSOR AS C170cT?76]) O 
381 x THOUGH THE TIMER HAD RUN OUT. THEN PICK UP FIRST JOB ON RQ, Civ7oct7é6) 
382 * Ci70CT76]) 
900260 383 CON NULL C170CT76) QC) 
000017 0540 O00 xX. 384 AOS XBSWPCT+15 COUNT CONNECT FAULTS PROCESSED COTFEB77 4] 
000004 2210 03 a+ 385 LDX X/BSTROF, DU TELL MASTER EXEC TO RESCHEDULE Ci70CT76) 
000035 7410 17 wa 386 STX X*eSSFTYPE*SS SET IN JOBS STATE VECTOR C170CT76) Oo 
000322 7100. 00 R. SO? TRA CONT COMMON FAULT CLEANUP C170CT76) 
368 * C170CT76) 
389 * PARITY FAULT -= SLAVE JOB WILL BE ABORTED... RETURN TO MASTER EXEC C170CT76] O 
390 * C170CT764) 
000264 391 PAR NULL C170CT?76) 
000003 2210 03 .. 392 LOX XsBSPARZDU GET THE PARITY FAULT CODE C170CT76) C 
000035 7410 17 4. 393 STX XsSSFTYPEsS SET IT IN THE STATE VECTOR C170CT76) 
000322 7100 OO R. 394 TRA CONT COMMON FAULT CLEANUP C170CT764) 
395 * CO1TFEB?77) eS 
396 * COMMAND FAULT ~ IF A SLAVE MODURE WHICH HAS THE BSCRASH BIT GETS COTFEB773) 
-e 
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000072 
000007 
000007 
000072 
000007 
000000 


000267 
2210 15 
1010 03 
6020 00 


O00272 
6360 10 
7369 00 
6350 02 
7550 16 
6210 Oe 
2520.36 
S190: OY 
075016 
2360 36 
7330 36 
2349 17 
6000 00 


0760 0? 
4500 i? 
7000 00 


000311 
0610 16 
2354 11 
7564 11 
6000 00 
2210 03 
7470.47 
2210 15 
4090.03 
6020 00 
2350 17 
4540 17 
2360 17 
7560 17 
1750 17 
0550 15 


22341313 


C+ ee eH eH eH HF He eH OF 


SERF 


USRF1 


EXTMO6 
EXTMO?7 


CONT 


NON“CONTROL PROCESSOR EXECUTIVE 


ONE OF THESE. 


NULL 
L DX 
CMPX 
TNC 


USER FAULT --~ 


SECOND WORD. 


DTSS EXECUTIVE CINSERT SEGMENT) 


XeJSRANSJ 
Xe2edDU 
MFT1 


IS GIVEN THE OPTION OF ABORTING OR CONTINUING IT. 


NULL 


DTSS TRADE SECRET PAGE 16 
RELEASED 
CRASH THE SYSTEM. 
IF IT'S ABOVE THE MONITOR LEVEL 
eee CRASH THE SYSTEM 
OTHERWISE PROCESS LIKE ANY OTHER FAULT 
A USER JOB RECEIVES A FAULT BY HAVING ITS 
IC/IR AT THE TIME OF THE FAULT SAVED IN THE FIRST WORD OF THE 
APPROPRIATE FAULT CELL IN HIS LOW CORE AND CONTROL PASSED TO THE 
IF THE FIRST WORD OF THE FAULT CELL IS NON-ZERO 
(THUS PRESUMABLY CONTAINING THE IC/IR OF AN EARLIER FAULT WHICH © 
HAS NOT YET BEEN PROCESSED), THE JOB IS SUSPENDED AND THE SUPRA-JO8 
MOVE THE FAULT TYPE NUMBER TO Q 


EAQ 
QLS 
EAA 
STA 
EAX 
LDA 
ANA 
ADA 
LO 
STA 
SZN 
TZE 


00 

1 

17QU 
JTEMP,P 
X70eQU 
IC,/P* 


~T-MSMWRD,DL 


JTEMP,P 
IC,P* 
IC,P* 
SSBARS.sS 
USRF1 


UNSQUEEZE JOB 


ADQ 
saz 
TSXO 


NULL 
ADX 
MLDA 
MSTQ 
TZ.E 
LDX 
STX 
L DX 
CMPX 
TNC 
LDA 
STT 
LDQ 


~~ $TQ 


SBA 
ASA 


170L 
SSBARS2S 
LBAR 


XeJIBASE oP 
0+X 

OX 

CONT 
X/BSDIR-DU 
X/SSFTYPESS 
XeJSRANGS 
Xe2eDU 
MFT1 
SSPTIMRsS 
SSREG+7,S 
SSREG+74S 
SSPTIMRsS 
SSREG+74S 
JSECTMEL J 


MULTIPLY BY 2 TO GET THE ADDRESS OF THE APPROPRIATE 
GET ADDRESS OF THE SECOND WORD OF THE CELL 
STORE THE IC AT WHICH TO RESTART THE JOB 

PUT RELATIVE FAULT CELL ADDRESS IN X 

PICK UP IC/IR AT TIME OF FAULT 

MASK TO JUST IR BITS THAT SHOULD BE FORWARDED 
GET ENTIRE IC/IR FOR RESTART 

GET OLD IC/IR 

SET NEW IC/IR 

WAS JOB SQUEEZED? 

IF NOT SKIP AHEAD 


SET FAKE IR FLAG SAYING FAULT FROM SQUEEZED MODE 
JOB IS NO LONGER SQUEEZED 
LOAD BARS FOR THIS JOB 


GET AN “ABSOLUTE” ADDRESS FOR THE FAULT CELL 
FIRST LOAD THE FAULT CELL 

SAVE THE NEW IC/IR 

IF IT WASN'T DIRTY» COMMON FAULT EXIT 

FLAG THAT JOB HAD A DIRTY FAULT VECTOR 

SAVE FLAG IN STATE VECTOR 

IF IT'S ABOVE MONITOR LEVEL... 

eee CRASH THE SYSTEM 


GET PREVIOUS INTERRUPT TIMER 
CHARGE USER FOR TIME UNTIL NOW 
UPDATE PREVIOUS INTERRUPT TIMER 


GET TIME FOR CREDIT ELIGIBILITY 
UPDATE ELIGIBILTY COUNTER 


OTJAN81 


CO1FEB77) 
CO1FEB77) 
COTFES77) 
COTJAN81) 
CO1TJAN81) 
CO1JAN81) 
COTFEB77] 
C170CT76) 
CI70CT76I) 
C170CT76) 
C170CT76) 
C170CT76) 
C170CT76) 
C170CT76] 
C170CT76) 
C170CT76] 
Ci70ct7éj 
C1i70cT76) 
CELL: 


£170CT76] 


[170C1T76] 
CO8AUG77) 
L170CT76] 
[170CT76] 
C170CT76] 
[170CT76) 
C170CT76] 
C170CT76] 
C170CT76] 
C170CT76] 
[170CT76) 
[1700176] 
C170CT76] 
C170CT76] 
CO8AUG77) 
CO8AUG77] 
CO8AUG77] 
CO8AUG77I 
CO8AUG77] 
CO8AUG77] 
C170CT76] 
C170CT76] 
C170CT76] 
CO1JAN81] 
CO1JAN81] 
CO1JAN81I 
CO1JAN81) 
CO1JAN81) 
CO1JAN81) 
CO1JAN81] 
CO1JAN81] 
CO1JAN81] 
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000330 
000331 
000332 
000333 
000334 
000335 


000336 
000337 
000340 


000341 
O0034e 


000343 
000344 
000345 
000346 


000347 
000350 
000351 
Q000352 


000353 


000354 
000355 


000356 
000357 
000360 
000361 
000362 
000363 
000364 


000365 


000366 
000367 
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O00007 
000336 
000035 
000336 
OCC0Q04 
000035 


OG0035 
000343 
000006 


000710 
0017001 


o00c007 
001012 
000044 
000030 


000010 
O00020 
200000 
000047 


000126 


001003 
000000 


990000 
000000 
000000 
000000 
0009000 
000000 
000000 


000134 


001014 
000372 


900343 
Cook ae 
£552 16 
Cao. 0 
LOSE VL 


4436 17 


4476 17 | 


C952. OF 
e50¢.-Th 
000353 
000353 
7)02 00 


2352 00 
4512 00 


eeie O00 
7452 11 
7452 00 
ged OS 
7412 15 
4452 15 
4502 16 
000365 
7172 QO 


2342 16 
6002 Q0 


22:41:13 


CONT2 


SEND 


E1SOO09 
E1S010 


SEND1 


* + % OF 


NON=CONTROL PROCESSOR EXECUTIVE 


SZN 
TPL 
LDX 
TNZ 
LDX 
STX 
NULL 
LDX 
TNZ 
AOS 
INHIB 
STX 
TRA 


SET UP JOB TO RETURN TO 


NULL 
LDA 
STA 
LDA 
STA 
IEE 
SAREG 
SPE 
LDA 
ORSA 
NULL 
QLOCK 
TSXO 


DTSS EXECUTIVE CINSERT SEGMENT) 


SHSREG+74S 
CONT2 
XeSSFTYPE*S 
CONT2 
X/BSTROF,DU 
XeSBFTYPEsS 


X/SSFTYPE.S 
SEND 
XSSWPCT+6 
ON 

S/REGsP 
RET«sP 


SSBREG+7 4S 
TIMR,P 

IC ,/P* 
SS$ICsS 
IOMFLGo1e2 
SS$AREGsS 
SSPTLEN*S 
BSENTRY,SADL 
S$BIT,S 


XFQLOCK 


DTSS TRADE SECRET PAGE 


HAS HIS TIMER RUN OUT? 

IF NOTs WE MAY CONTINUE HIM . 

IS THE JOB GOING TO THE MASTER EXEC ANYWAY? 

IF SOQ» IGNORE THE FACT THAT HIS: TIMER HAS RUN OUT 
TELL THE MASTER EXEC TO RESCHEDULE HIM 

SAVE FLAG IN STATE VECTOR 


HAVE WE SET A REASON FOR MASTER EXEC PROCESSING? 
IF WE DOs GO SEND IT OFF 

COUNT FAULTS PROCESSED BY SLAVE EXEC 

BETTER BE CAREFUL IN HERE 

ON FAULTS, USE STATE VECTOR TO SAVE REGISTERS 
RETURN TO SLAVE MODE 


MASTER EXEC 


GET TIMER REGISTER AT TIME OF FAULT 
SAVE AS TIMER ENTERING EXEC 

GET USERTS IC 

SAVE IN STATE VECTOR 


SAVE USER ADD. REGS (DELETED IF NON-ETIS) 
SAVE USER PTRS & LENS (DELETED IF NON-EIS) 
GET EXEC ENTRY BIT 

SET IN STATE VECTOR BITS 


SITEZE MULTIPROCESSING QUEUE 
LOWER THE SEMAPHORE 


SET INTERRUPT TO CALL CONTROL PROCESSOR 


LDA 
SMIC 


PLACE JOB ON QUEUE FOR 


L DX 
STX 
STX 
LDX 
STX 
SXKL 
STZ 
QNLOCK 
XED 


IF SHUT 
TO KILL 


SZN 
TZE 


WK INT 
XSMEM 


Xe, $JSQI 

Je JSSRQZX 
JebJSQI 
X70/DU 
XeJBRQ,J 
JpJBISFLGZJ 


JOBsP 


XSQNLCK 


GET INTERRUPT 
SET IT PENDING 


MASTER PROCESSING 


GET INSERT POINTER TO JSQ 

INSERT NEW JOB ON QUEUE 

SET NEW INSERT POINTER 

CLEAR XR-X 

MARK END OF QUEUE 

NOTE THAT THIS JOB NEEDS SERVICE 
SHOW NO JOB RUNNINT NOW 

RELEASE MULTIPROCESSING QUEUES 
RAISE THE SEMAPHORE 


DOWN FAULT OCCURED, SIMULATE MASTER SHUT DOWN FAULT 


PROCESSOR. 


SDFG~sP 
+3 


IS THE SHUTDOWN FAULT FLAG SET? 
I DIDN'T THINK SO 


17 
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C170CT76) 
CiI7OCT?6) 
C170CT76) 
C170CT76) 
C170CT76) 
C170CT76) 
CV70CT76) 
C170CT76) 
CI170CT76) 
CO1FEB?77) 
C170CT76) 
C170CT76) 
C170CT76) 
C170C1T76) 
{170CT76) 
C170CT76) 
C170CT76) 
CIZMAY76) 
CI3MAY76) 


C170CT76) 


CO1JAN81 4 
CO1TJAN81 J 
CO1JAN814J 
COTJAN81) 
CO1JAN81) 
CO1JAN817) 


C170CT76) 
C170cCT76) 
CI70CT?6) 
C170CT76) 
Ci70CT76) 
C170CT76) 


© Gy: “Oi > - “Os Or Gr a Se ee Ge am 


Cy . 49 We 4s. vO: a "Or 2G 


oO %  ~ -O: Oo. © OD 2 OD OO 2: Oo: oO ©2 © & 2 © 2. © 


NCONTROL 


000370 
000371 


000372 
000373 
000374 
000375 


000376 
000377 
000400 


0004061 
000402 
000403 
000404 
Q00405 
000406 
000407 
000410 


000411 
Q00472 


000413 
000414 
000415 
000416 
000417 


000420 
000421 
000422 
000423 
000424 
000425 


000426 


08/28/81 
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001014 
000124 


000000 
000457 
000000 
000457 


090126 
009000 
000411 


000001 
000000 
000000 
000000 
060000 
000411 
0c0000 
O0C000 


000000 
000134 


900000 
000457 
000000 
100000 
000553 


000000 
U00426 
000000 
000011 
000000 
000433 


000000 


4502 16 
7162 16 


000372 
2340 00 
6010 00 
2340 00 
6010 00 


009376 
TOU 2 OU 


000426 
2350 15 
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ax DX 


r ® ‘ ee 6°¢ 


<x «KOK NM KD 


499 
500 
501 
502 
503 
504 
505 
506 
207 
508 
509 
510 
511 
512 
piel Be) 
514 
515 


1.6 
eee, 
Bae 


519 
~eu 
ae 1 
522 
523 
524 
229 
526 


527 
528 
ae 
2a0 
Jo 
532 
= hee 
534 
535 
536 
Sat 
238 
+39 
540 
541 
542 
543 
544 
545 


SRUNO 


+ + & 


SRUN2 


NON=CONTROL PROCESSOR EXECUTIVE 


STZ 
XEC 


INHIB 


DTSS EXECUTIVE CINSERT SEGMENT) 


SDFG ~sP 
SDTsP 


OFF 


CHECK HANG FLAG 


NULL 
SZN 
TNZ 
SZN 
TNZ 


GET NEXT JOB TO RUN 


INHIB 
QLOCK 
TSXO 
L DX 
TZE 
DECCT 
LCA 
ASA 
TMI 

L DX 
STX 
TNZ 
SZN 
TNZ 
NULL 
STX 
QNLOCK 
XED 
INHIB 
CMP X 
TL 
LDX 
CANX 
TN2Z 


PREPARE 


SZN 
TNZ 
LDA 
ALS 
EAX 
TRA 


NULL 
LDA 


ASPFO 
SWAIT 
X SHANG 
SWAIT 


ON 


XSQLOCK 
JeBRQF 
SRUNO 
XSRQC 
1,0L 
XSRQC 
EZOPF,* 
XeJFRQ,S5 
Xe SRQF 
+3 
X$RQAC 
S$ZOPF,* 


JeJOB,P 


XSQNLCK 
OFF 
Je0-DU 
SWAIT 

Xe JbBIT oJ 


X/BSTERM,DU 


SEND 1 


TO RUN THIS JOB 


EXTMEM 
SRUN2 
JBLOCS +4 
9 

S$70¢AL 
SRUNS3 


JELOCS 24 


DTSS TRADE SECRET PAGE 


CLEAR IT AND PROCESS IT 
PRETEND WE JUST GOT ONE NOW 


TAKE ANY PENDING FAULTS/AWAKES 


IS THERE A LIST ELEMENT PANIC? 
IF SO,» DON'T RUN ANY JOBS 

IS SYSTEM HUNG? 

YES ~- JUST WATT 


HAD OUR CHANCE FOR FAULTS/AWAKES ~~ BACK TO WORK 
LOWER THE SEMAPHORE 

LOWER THE SEMAPHORE 

GET NEXT JOB TO RUN 

SKIP IF NONE 

COUNT JOBS ON RQ 

GET A MINUS ONE 

ADD TO APPROPRIATE COUNTER 
ERROR IF IT WENT. NEGATIV 
POINT TO NEXT JOB ON RQ 

MAKE IT THE FIRST 

SKIP IF NOT LAST JOB 

MAKE SURE NO JOBS ARE ON XSRQ 
WHERE ARE THEY? 


SAVE JOB NUMBER 

RAISE THE SEMAPHORE 

RAISE THE SEMAPHORE 

END OF SEMAPHORED CODE 

DID WE GET A JOB? 

NO ~ JUST WAIT 

GET THE JOB*S BITS 

IS THE JOB TERMINATING? 

IF SO» BACK TO THE MASTER PROCESSOR 


ARE WE RUNNING EXTENDED MEMORY? 
YES» SKIP 

GET LOCATION OF STATE VECTOR 
CONVERT LOC TO WORDS IN AL 

MOVE TO STATE VECTOR REGISTER 
BRANCH TO COMMON CODE 


HERE TO SET UP SV FOR EXTENDED MEMORY 
LOAD SV LOCATION/2°9 IN AL 


RELEASED 01JAN81 


C170CT?76) 
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C170c T7649 


C170CT?6) 
C170CT76) 


CO1SEP80) 


CO1SEP80] 


C170CT76) 
C170CT76) 
C170CT76) 
C170cT76) 


CO8AUG77) 
CO8AUG77) 
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000427 
000430 
000431 
000432 


000433 
000434 
000435 
000436 
000437 
000440 
000441 
000442 
000443 


000444 
000445 
000446 
000447 


000450 
000451 


000452 


000453 
000454 


000455 


000456 
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777600 
001006 
00171006 
200000 


000010 
000620 
001006 
0017012 
0071006 
000014 
000000 
gCo000 
000450 


Q000000 | 


900900 
000007 
0¢0000 


0129000 
0090097 


009030 
000044 


000110 


001901 
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6350 05 
7550 16 
5700 16 
ee( 0. OS 


000433 


6372 17 


7002 Q9 


2522. it 
{3.92 36 


7472 16 


7102 16 


Re 


585 
586 


588 


SRUN3 


EISO11 
EISOi2 


SRUN1 
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NON=CONTROL PROCESSOR EXECUTIVE 


EAA 
STA 
LMBA 
L DX 
NULL 


IF WE ARE CPUO, 


INHIB 
IFE 
LAREG 
LPL 
STT 
LDQ 
SBQ 
QRL 
ASQ 
CMPX 
TNZ 
GTIM 
TSxO 
STA 
LDA 
STA 
NULL 
ADLA 
LOT 


—~2*64,AL 
JTEMP.P 


JTEMP,P 


$764*1024,DU 


ON 


IOMFLGsle2 
SSAREG~,S 


SSPTLENsS 
JTEMP,P 
TIMRsP 
JTEMP,P 
12 
XSOVERH 
P,0,DU 
SRUNT 


XSGTIM 
XSTIME 
SSREGt+7,4S 
XSTIMEL 


=10B26-0L 
SSREGt+? 4S 


PAGE 19 


RELEASED 


CORRECT FOR EXTENDED ADDRESSINGs MOVE TO UPPER 


LOAD THE MBA TO POINT TO STATE VECTOR 
SET XR-S TO POINT TO STATE VECTOR(??) 
MAINTAIN TIME OF DAY 
DON'T BE INTERRUPTED PLAYING WITH TIMERS 


RELOAD USER ADD. REGS (DELETED IF NOPN-EIS) 
RELOAD USER PTRS&LENS (DELETED IF NON-EIS) 


SAVE CURRENT TIMER 


GET TIMER ON ENTRY TO SLAVE EXEC 


SUBTRACT CURRENT TIMER VALUE 
SHIFT TO TICKS 

COUNT AS TIME SPENT IN EXEC 

IS THIS THE CONTROL PROCESSOR? 
NO - SKIP TIME= OF-DAY BOTHER 
GET TIME NOW 

RETURN TIMER UNITS IN A 

SAVE TIME WHEN TIMER LOADED 
GET VALUE FOR TIMER 

PUT AS TIME LOADED INTO TIMER 


ACCOUNT FOR OUR SLOP DOING THIS 
LOAD TIMER 


LOAD BASE ADDRESS REGISTER FOR JOB 


TSXO 


MOVE IC 


LDA 
STA 


POINT TO REGS TO LOAD 


STX 


LBAR 


TO STACK 


S$1ICsS 
ICsP* 


S*#REG,P 


RETURN TO USER 


TRA 


RETsP 


LOAD THE BARS FOR THIS JOB 


GET USER'S IC 
SAVE IN OUR RETURN STACK 


SAVE POINTER 


GO TO APPROPRIATE LREG/RET PAIR 
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000457 
000460 
000461 
000462 
000463 


000464 
000465 
000466 
000467 
000470 
0004714 
000472 
000473 
000474 
000475 
000476 
000477 
000500 
000501 


000502 
000503 
000504 
000505 
000506 
000507 
000510 
0005171 
000512 
000513 
0005174 
000515 
000516 
000517 
000520 


000521 


000522 


08/28/81 2eralsts 
N 
589 
290 
591 
592 
9090457 593 
594 
O00000 2252 03 «2% 595 
3/G000 -25332. US we 596 
001010 7552 16 R. 997 
000000 1062 03 .. 298 
000502 6012 00 R, 599 
600 
601 
602 
000464 603 
Q000090 700e OO X. 
000000 7552 00 X. -604 
000000 2212 00 xX. 605 
000472 6012 00 &. 606 
000037 2352 03 .«. 607 
000476 7102 OO R. 608 
OOC00T 14352 77 «« 609 
000475 6022 00 R. 610 
OR0007. 3352 OF" es 611 
000000 5312 00 .. 612 
OOG014 332 00... 613 
001010 7552 16 Rw. -+614 
OS6000 -“OS52 O07 “ee, “FOS 
900000 7552 00 xX. +616 
OV 7 
618 
619 
UCLO00 227.2. 035 ws 620 
QOO00000 2362 00 x. 621 
000000 2762 00 x. 622 
090507 6002 00 R,. 623 
GOROOT 222. 0 Sars 624 
001006 4542 16 R. 625 
001012 2362 16 R. 626 
001006 1762 16 R. 627 
000014 7722 00 .. 628 
009000 0562 00 xX. 629 
OO1020 232 56 Ru 630 
OO0001 7752 00 «.. 631 
000043 7762 00 .. 632 
001920 7572 36 R. 633 
001010 6372 16 R. 634 
635 
000000 6160 00 .. 636 
637 
638 
001006 2142 16 R. 639 


DTSS EXECUTIVE CINSERT SEGMENT) 


SWAIT 


VI * & 


WAT 4 


DTSS TRADE SECRET 


NON@CONTROL PROCESSOR EXECUTIVE 


EJECT 


NO JOB READY TO RUN - 


NULL 
INHIB 
L DX 
LDA 
STA 
CMPX 
TNZ 


CONTROL 


GTIM 
TSXO 
STA 
LOX 
TNZ 
LDA 
TRA 
SBLA 
TNC 
LCA 
NEG 
ALS 
STA 
ADLA 
STA 


WAIT NOW 


L DX 
LDQ 
ORQ 
t2E 

L DX 
i | 
LDQ 
$BQ 
QRL 
ASQ 
LDAQ 
ALR 
QLR 
STAQ 
LOT 
INHIB 
O13 
INHIB 
IFE 
SZNC 


ON 
J70,0U 


=0370000,DU 


IDLET,P 
P,O-DU 
SWAT 1 


PROCESSOR IS IDLE, 


XSGTIM 
XSTIME 
X7/XbTIMQ 
x+3 
=037/DU 
x+5 
XSTIM+,X 
xte 

1/DL 


12 
IDLETsP 


=30B26/D90L 


X$TIMEL 


Xe0eD0U 
WSSWPIC 
X$NCQC 
z+? 
Xv1/DU 
JTEMP,P 
TIMRsP 
JTEMP.P 
V2 
XZOVERH 
LIGHT »P* 
1 

36-1 
LIGHT »P* 
IDLET+sP 
OFF 

0 

ON 
IOMFLG~e1 
JTEMP.sP 


WAIT 


MAKE SURE NO JOBS ARRIVE BEFORE WE'RE READY 
SET JOB NUMBER TO ZERO 
SET LARGE TIMER FOR US 
SAVE IT 
ARE WE CPUQ? 
NO ~~ DON'T WORRY ABOUT THE TIME 


MUST UPDATE TIMERS 


GET TIME NOW 
RETURN TIMER UNITS IN A 
SAVE AS CURRENT TIME 
ARE THERE ANY TIMERS WAITING 
YES =~ CHECK THEM 
NO TIMER ~ SET LARGE TIMER FOR IDLE LOOP 
SKIP A LITTLE 
GET TIME TILL TICKER RUNNOUT 
CHECK FOR RUNNOUT IMMINENT 
YES ~-- SET IT FOR IMMEDIATE 


SHIFT OVER 

SAVE AS TIME TO LOAD 

ACCOUNT FOR OUR SLOP DOOING THIS 
SAVE AS THE TIME WE. LOADED 


SET FLAG TO ZERO 
GET COUNT OF SWAPS IN PROGRESS 


AND THE NUMBER OF JOBS ON THE NON-CORE QUEUE 


IDLE IS TRULY IDLE 

IDLE IS JUST OUR INEFFICIENCY 
SAVE CURRENT TIMER 

GET TIMER ON ENTRY TO SLAVE EXEC 
SUBTRACT CURRENT TIMER VALUE 
SHIFT TO TICKS 

COUNT AS TIME SPENT IN EXEC 

LOAD IDLE DISPLAY 

CHANGE THE PATTERN 


AND RESTORE FOR NEXT TIME 
LOAD TIMER FOR WAITING 


WAIT FOR SOMETHING 
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ISSUE LOAD AND CLEAR TO FLUSH CACHE CIF PRESENT). 


O1JAN81 


CO7SEP80) 


CO1JAN81) 
COTJAN8149 
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000531 
000532 
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000536 
990537 
000540 
000541 
000542 
000543 
000544 
000545 


000546 
000547 


000550 
000551 
000552 


000553 
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000555 
Q00556 


000557 
000560 
000561 
000562 


000563 
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000031 
009536 
090000 
777777 
000011 


0€1006 

00000 
CEILEL 
000033 
901006 
000000 
007016 
001006 


000000 
000553 


001006 
009.000 
900000 


001006 
000022 
001606 
001006 


00007 1 
777600 
001006 
001006 


200000 
001016 


000531 


2350 17 
60190 O00 
Be ae 
Sr aU. OS 
7710 OO 


F590) 16 
Coon. Ss 
Si Or 30 
1750 00 
0550 16 
603020 
T5599. 16 
2300 16 


2340 00 
6010 09 


7220 16 
6000 10 
7100 20 


900553 
2350 16 
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7550 16 
5720 16 
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9710 16 
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BAR 


LBAR1 
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NON=CONTROL PROCESSOR EXECUTIVE 


EJECT 


A SLAVE 


MBB 


CALLING SEQUENCE 


LDX 
TSXO 


NULL 
INHIB 
LDA 
TNZ 
LDA 
ANA 
ARL 


STA 
LDA 
ANA 
ALR 
ASA 
TRC 
STA 
LBAR 


SZN 
TN2Z 


LXL 
ELE 
TRA 


NULL 
LOA 
ALR 
STA 
LBER 


ARL 
EAA 
STA 
LMBB 


LDA 
STA 


SECRET PAGE 22 


RELEASED O1JAN81 


CO8AUG77) 

CO8AUG77) 

, CO8AUG77) 

THE LBAR ROUTINE WILL LOAD ANY AND ALL BARS NECESSARY TO RUN OR ACCESS CO8AUG77) 
JOB. IF WE ARE NOT RUNNING EXTENDED MEMORY, ALL THAT NEED CO8AUG77) 
BE LOADED IS THE BAR. WITH EXTENDED MEMORY, THE BER IS LOADED AND CO8AUG77) 
IS SET TO POINT TO THE BASE OF THE JOB-64K. CO8AUG77) 
CO8AUG77) 

CO8AUG77) 

C[O8AUG77) 

Je<JOB NUMBER> CO8AUG77) 
LBAR CO8AUG77 4 
CO8AUG77) 

CO8AUG77) 

OFF NOT SENSITIVE CODE CO1SEP80I 
SSBARS~4S LOAD SQUEEZED MODE BAR CO8AUG779 
x+h SKIP IFIT IS VALID CO8AUG77) 
JBLEN,J LOAD LENGTH OF JOB CO8AUG77) 
-1,DU ONLY | CO8AUG77) 
9 MOVE LEN TO BAR FIELD (BITS 9=17) CO8AUG773 
CO8aAuUG77) 

JTEMP,P SAVE PARTIAL BAR CO8AUG77) 
J$LOCeJ LOAD ABSOLUTE JOB/279 IN AL CO8AUG773 
~T,/9OL ONLY CO8AUG77) 
36-9 MOVE ADDRESS MOD 256K TO AU CO8AUG77 3 
JTEMP»P ADD ADDRESS INTO PARTIAL BAR CO8AUG77I 
$ZOPF,* JOB STARTING IN ONE 256K REGION, SQUEEZED IN THE NEXT 
JBASE,P SAVE ADDRESS OF SLAVE JOB CIF NONEXTENDED) CO8AUG77) 
JTEMP,P LOAD THE BAR CO8AUG77) 
. COSAUG77) 
EXTMEM ARE WE RUNNING EXTENDED MEMORY? CO8AUG77) 
LBAR1 YES,» CONTINUE CO8AUG77) 
CO8AUG77] 

Ye JITEMP SP LOAD ADDRESS/256K CO8AUG77) 
0,0 IF ZERO,» THEN WE'RE OK CO8AUG77) 
$ZOPF,* JOB IS RUNNING ABOVE 256K ON A NON-EXTENDED SYSTEM [CO8AUG77) 
CO8AUG77)3 

EXTENDED MEMORY HANDLED HERE CO8AUG77) 
CO8AUG77I 

CO8AUG?77) 

JTEMP,P LOAD ADDRESS/256K IN AL CO8AUG77) 
18 JUSTIFY FOR..».BER..SAVE BAR CO1JAN81] 
JTEMP>,P CO8AUG77) 
JTEMP,P LOAD BASE EXTENSION REGISTER CO8AUG77) 
CO8AUG77) 

9 ADJUST TO GET ABSOLUTE ADDRESS OF JOB CO1JAN813 
—2*64eAL CORRECT FOR EXTENDED ADDRESSING COSNOV?77) 
JTEMP>P CO8AUG77) 
JTEMP,P LOAD MBB TO POINT TO JOB'S CORE CO8AUG77) 
CLO8AUG77) 

64%*1024,0U LOAD FAKE BASE FOR JOBS CORE CO8AUG77) 
JBASEsP SAVE FOR FUTURE USE CO8AUG77] 
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TRA 00 AND RETURN | CO8AUG77) 
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RELEASED O1JAN81 


EJECT 

SHUTDOWN FAULT =~ STOP 

INHIB ON SENSITIVE CODE CO1TSEP80) 
NULL 

SZN SDICsP HAVE WE SHUT DOWN ALREADY? 

TNZ SHALT YES =~ JUST HALT 

LDX XeREGeP POINT TO SHUTDOWN REGISTERS 

LDX Ye SDREGeP POINT TO SAFE=STORE AREA 

RPD 42 MOVE REGISTERS 

LDAQ O +X FROM TEMPORARY STORAGE 

STAQ OY TO A SAFE PLACE 

SBAR SDBARsP SAVE BAR 

LDA IC,P GET IC POINTER 

STA SDIC,/P SAVE IT AND SET FLAG 

CMPX P»O-,DU IS THIS THE CONTROL PROCESSOR? 

TN2 SHALT NO = JUST STOP 

RMCM X$MEM YES - SAVE MASK REGISTER 

STAQ SOMCM 

LDAG NOINT GET MASK FOR NO INTERRUPTS 

SMCM XBMEM MASK THEM ALL OFF 

RMCM XSMEM READ THEM AGAIN TO MAKE SURE THEY GET SET 

NOP * eI WASTE SOME MORE TIME JUST IN CASE 

TRA SHALT NOW HALT 

STARTUP FAULT =~ BACK TO WORK 

NULL 

SZN SDIC+sP HAS SHUTDOWN FAULT PRECEEDED? 
TZ MFT1 NO) oe De CO9DEC79] 
LDA SDICAP GET SAVED IC POINTER 

STA ICP SAVE FOR RETURN 

L DX Xv SDREGo»P POINT TO SAVED REGS 

CDK Y¥*eREGsP POINT TO REGISTER LOAD AREA 

RPD 472 MOVE REGISTERS 

LDAQ 0.x FROM SAFE STORAGE AREA 

STAQ O,+yY TO LOAD AREA 

LBAR SDBARsP RESTORE BAR 

LOT O,DU SET TIMER RUNOUT PENDING 

LOT ~“1,7Y RESET TIMER TO VALUE AT SHUTDOWN 

a 4 SDIC,P CLEAR SHUTDOWN FLAG 

CMPX P,O-,DU IS THIS THE CONTROL PROCESSOR? 

TNZ RET*»P NO = RETURN 

LDAQ SDMCM YES ~ RESTORE CONTROLLER MASK 

SMCM XSMEM 

TRA RETsP NOW RETURN 

IPR FAULT ~~ CHECK AND CORRECT INSTRUCTION IF AN EXTENDED INSTRUCTION CO8AUG77) 
ON AN NON-EXTENDED MACHINE, CO8AUG?77) 
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NULL 
SZN 
TN2Z 


L DX 
LDA 
LDQ 
CMK 
TZE 
CMK 
TNZ 
ERA 
STA 
SBX 
STX 
TRA 


MASTER FAULT ~ 


NULL 
NOP 
CMPXO 
TZE 
TLE 
CMPXO 
VZE 
CMPXO 
TZE 
CMPXO 
TZE 
CMPXO 
TZE 


SYSTEM ERROR - 


NULL 
LDAQ 
STAQ 
STX 

SBAR 
SXLO 


SZN 
YO 
SBER 
SMBA 
SMBB 


SCPR 
SCPR 


DTSS EXECUTIVE CINSERT SEGMENT) 


EXTMEM 
MF T1 


Xv IlCrP* 
~1+X 
=0777777003377 
=0234400-,DL 
x+3 
=0754400-DL 
MFT1 
=0400-,DL 
~1,x 

Xe1/DU 
XvIC,P* 
RET+sP 


O* DU 
8 DU 
XSMCHEK 
RETsP 
0, DU 
SDF 
12,/DU 
SUF 
4/DU 
TIMF 
10,D0U 
IPR 


DIE 


ZSINTC 
XSFTVO+16 
PeZSPROC 
Z$BAR 
ZSFTYPE 


EXTMEM 
«th 
ZSBER 
ZSMBA 
Z3MBB 


ZSFTREGsO1 
ZSMDREGs06 


CHECK FOR SHUTDOWN, STARTUP, 


DTSS TRADE SECRET PAGE 


ARE WE RUNNING ON EXTENDED MEMORY? 
YES, ALL IPR FAULTS ARE FATAL 


LOAD THE IC+1 OF THE FAULTING INSTRUCTION 
LOAD THE FAULTING INSTRUCTION 

LOAD A MASK FOR OPCODE FIELD 
MLDAsMLDQsML DAQ? 

YES, FIX 

MSTAsMSTQsMS TAQ? 

NONE OF THE ABOVEs CRASH 

TURN THE EXTENDED INSTRUCTION BACK TO A NORMAL. ONE 
RESTORE 

BACK THE IC UP ONE FOR THE RETRY 

SAVE FOR RETURN 

AND RETURN TO RETRY 


OR CONNECT 


SPACE FOR LCPR INST. ON 66/X? 
IS THIS A CONNECT FAULT? 
(THIS INST DELETED BY DISK STARTUP) 
YES -~ JUST RETURN 

IS IT A SHUTDOWN FAULT? 

YES ~ SHUT UP SHOP 

IS IT A STARTUP FAULT? 

YES - BACK TO WORK 

CHECK FOR TIMER RUNNOUT FAULT 
YES =- AWAKEN 

ZOPCIPR) FAULT? 

YES GO CHECK IT OUT 


GET DIE INTERRUPT PAIR 

SAVE IN CONNECT FAULT CELL 

SAVE GUILTY PROCESSOR NUMBER 

SAVE BAR OF CRASHING CPU 

SAVE TYPE OF FAULT IF NON-CONTRCL PROCESSOR 


ARE WE RUNNING EXTENDED MEMORY? 
NO» SKIP 

SAVE BASE EXTENSION REGISTER 
SAVE MBA 

AND MBB 


STORE FAULT REGISTER 
AND THE MODE REGISTER 
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CO8AUG?77) 
CO8AUG?77) 
CO8AUG?779 
CO8AUG77) 
CO8AUG77) 
CO8AUG77) 
CO8AUG?74 
CO8AUG77) 
CO8AUG77 4) 
CO8AUG77)} 
CO8AUG77] 
CO8AUG77) 
CO8AUG?7 J 
CO8AUG77) 


CO8AUG77) 


CO8AUG?773) 
EO8AUG77) 
CO8AUG77) 
CO8AUG?7) 
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C30D0EC76) 


CO8AUG77) 
CO8AUG/7) 


CO1SEP803 
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000715 
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000723 
000724 
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000726 
O0C?e? 
000730 
000731 
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000734 
000735 
000736 
000737 
000740 
000741 
000742 
000743 


000744 
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O0C060 
001026 
000001 
000704 


000000 
000711 
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oceno2 
000040 
000710 


00000e 
030000 
020000 
000744 


000060 
007026 
000001 
OO0A22 
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000727 
ooo0000 
000002 
000040 
000726 


g00c0e2 
030000 
000744 
OCO000 
000740 
000000 
0090002 
000040 
000737 


000044 
000000 
000200 


2202 03 
4522 20 
1602 Q3 
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7402 G0 
4522 20 
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1152 03 
6002 O09 


2202 3 
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1602 03 
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6202 O00 
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KLUDGEs 
HISTORY REGISTER INFORMATION. 


DTSS TRADE SECRET PAGE 


THE DPS~E MODEL PROCESSORS HAVE 64 PAIRS OF 


WE ONLY HAVE ROOM TO DUMP 


16.4 IN ORDER TO GET THE MOST RECENT 164 48 MUST BE SKIPPED. 
WHEN THIS CODE IS EXECUTED ON NON=DPS-E PROCESSORS» IT 

WILL CYCLE THROUGH THE HISTORY REGISTERS THREE TIMES AND 
LEAVE THE POINTER WHERE IT STARTED. 


LDXO 
SCPR 
SBXO 
TNZ 


EAXO 
STXO 
SCPR 
ADXO 
CMPXO 
TNC 


RSW 
ANA 
CMPA 
TLE 


LDXO 
SCPR 
S$BXO 
TNZ 


EAXO 
STXO 
SCPE 
ADXO 
CMPXO 
TNC 


RSW 
ANA 
TNZ 
EAXO 
$TxO 
SCPR 
ADXO 
CMPXO 
TNC 
NULL 


48,DU 
JUNK 420 
1/DU 
x- 2? 


ZSCUHIS 

x +4 

aeee2eD 

2DU 
Z$SCUHIS+32,D0U 
km] 

va 

MSPTYPE,DU 
MSELS DU 

MFT 2 


48,0U 
JUNK .40 
1,DU 
#=2 


ZSQOUHIS 

*+ 

weee GQ 

2”7DU 
ZSOUHIS+32,0U 
w—h 


2 

MSPTYPE,sDU 
MFT2 

ZSDUHIS 

x +4 

222210 

27DU 
ZSDUHIS+#+32,DU 
5 dat 


NUMBER OF ENTRIES TO SKIP 
THROW AWAY SOME INFORMATION 
COUNT 

UNTIL DONE 


POINT TO CU HISTORY REG SAVE AREA 
SAVE THE POINTER 
SAVE A CU REG PAIR 


CHECK FOR DONE 
LOOP IF NOT 


"GET PROCESSOR MODEL 

ONLY 

IS IT AN ELS MODEL? 

IF SO,» NO OU OR DU HISTORY BEGET ERS 


NUMBER OF ENTRIES TO SKIP ON DPS=E MACHINES 
THROW AWAY SOME INFORMATION 

COUNT 

UNTIL DONE 


POINT TO OU HISTORY REGISTER SAVE AREA 


xx 
* 


* SAVE OU HISTORY REGISTERS 


* 


ke 


READ INFO SWITCHES 
GET PROCESSOR TYPE 
NEWER MODELS DO NOT HAVE DU HISTORY REGISTERS 
POINT TO DU CEIS) HISTORY REGISTER SAVE AREA 


x * 
* 


* SAVE DU HISTORY REGISTERS 
* 


x* 


SAVE IC/IR AND REGISTERS FOR DUMP 


LDA 
STA 
CANA 


ICsP* 
ZSIC 
MEMMODEsDL 


LOAD IC/IR FROM as, 
SAVE FOR DUMP 
WAS FAULT FROM MASTER MODE? 
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CO1SEP80) 
CO7TSEP80) 
CO1SEP80I 
CO1SEP80) 
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CO1SEP803 
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COTSEP80) 


COVSEP80) 
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CO1SEP80] 
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C3QDEC76) 
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SHALT 
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TNZ 
LREG 
TRA 
LREG 
SREG 


L CPR 


Croc 
NULL 
DIS 
TRA 


K+3 


SSREG.S 


x+2 
REGsP* 
ZSREG 


UNLOCK 404 


S$PROC+0 


0 


x=] 


YESs SKIP 

LOAD REGISTERS FROM SLAVE MODE 
AND SKIP 

LOAD REGISTERS FROM MASTER MODE 
SAVE FOR DUMP 


UNLOCK THE REGISTERS 


SEND A CONNECT TO THE CONTROL CPU 
WAIT FOREVER 

WAIT 

UNTIL A FAULT WAKES US 
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